home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vbkids10 / sample.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-08-28  |  15.2 KB  |  491 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSample 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Visual Basic for Kids - Sample"
  5.    ClientHeight    =   5100
  6.    ClientLeft      =   1500
  7.    ClientTop       =   1035
  8.    ClientWidth     =   5790
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   5100
  14.    ScaleWidth      =   5790
  15.    Begin VB.Frame fraColor 
  16.       Caption         =   "Color"
  17.       BeginProperty Font 
  18.          Name            =   "MS Sans Serif"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   700
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   1095
  27.       Left            =   2040
  28.       TabIndex        =   0
  29.       Top             =   2760
  30.       Width           =   2775
  31.       Begin VB.OptionButton optBlack 
  32.          Caption         =   "Black"
  33.          BeginProperty Font 
  34.             Name            =   "MS Sans Serif"
  35.             Size            =   9.75
  36.             Charset         =   0
  37.             Weight          =   400
  38.             Underline       =   0   'False
  39.             Italic          =   0   'False
  40.             Strikethrough   =   0   'False
  41.          EndProperty
  42.          Height          =   375
  43.          Left            =   1440
  44.          TabIndex        =   4
  45.          Top             =   600
  46.          Width           =   1215
  47.       End
  48.       Begin VB.OptionButton optGreen 
  49.          Caption         =   "Green"
  50.          BeginProperty Font 
  51.             Name            =   "MS Sans Serif"
  52.             Size            =   9.75
  53.             Charset         =   0
  54.             Weight          =   400
  55.             Underline       =   0   'False
  56.             Italic          =   0   'False
  57.             Strikethrough   =   0   'False
  58.          EndProperty
  59.          Height          =   375
  60.          Left            =   1440
  61.          TabIndex        =   3
  62.          Top             =   240
  63.          Width           =   1215
  64.       End
  65.       Begin VB.OptionButton optRed 
  66.          Caption         =   "Red"
  67.          BeginProperty Font 
  68.             Name            =   "MS Sans Serif"
  69.             Size            =   9.75
  70.             Charset         =   0
  71.             Weight          =   400
  72.             Underline       =   0   'False
  73.             Italic          =   0   'False
  74.             Strikethrough   =   0   'False
  75.          EndProperty
  76.          Height          =   375
  77.          Left            =   240
  78.          TabIndex        =   2
  79.          Top             =   600
  80.          Width           =   1215
  81.       End
  82.       Begin VB.OptionButton optBlue 
  83.          Caption         =   "Blue"
  84.          BeginProperty Font 
  85.             Name            =   "MS Sans Serif"
  86.             Size            =   9.75
  87.             Charset         =   0
  88.             Weight          =   400
  89.             Underline       =   0   'False
  90.             Italic          =   0   'False
  91.             Strikethrough   =   0   'False
  92.          EndProperty
  93.          Height          =   375
  94.          Left            =   240
  95.          TabIndex        =   1
  96.          Top             =   240
  97.          Width           =   1215
  98.       End
  99.    End
  100.    Begin VB.CommandButton cmdBall 
  101.       Caption         =   "Start"
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   9.75
  105.          Charset         =   0
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   495
  112.       Left            =   4920
  113.       TabIndex        =   18
  114.       Top             =   4560
  115.       Width           =   735
  116.    End
  117.    Begin VB.Timer timBall 
  118.       Enabled         =   0   'False
  119.       Interval        =   100
  120.       Left            =   3960
  121.       Top             =   4680
  122.    End
  123.    Begin VB.PictureBox picBall 
  124.       BackColor       =   &H0000FFFF&
  125.       Height          =   4335
  126.       Left            =   4920
  127.       ScaleHeight     =   4275
  128.       ScaleWidth      =   675
  129.       TabIndex        =   17
  130.       Top             =   120
  131.       Width           =   735
  132.       Begin VB.Shape shpBall 
  133.          BackColor       =   &H000000FF&
  134.          BackStyle       =   1  'Opaque
  135.          FillColor       =   &H00FF0000&
  136.          FillStyle       =   7  'Diagonal Cross
  137.          Height          =   495
  138.          Left            =   120
  139.          Shape           =   3  'Circle
  140.          Top             =   1560
  141.          Width           =   495
  142.       End
  143.    End
  144.    Begin VB.Frame fraPick 
  145.       Caption         =   "Pick a Number"
  146.       BeginProperty Font 
  147.          Name            =   "MS Sans Serif"
  148.          Size            =   9.75
  149.          Charset         =   0
  150.          Weight          =   700
  151.          Underline       =   0   'False
  152.          Italic          =   0   'False
  153.          Strikethrough   =   0   'False
  154.       EndProperty
  155.       Height          =   1095
  156.       Left            =   120
  157.       TabIndex        =   13
  158.       Top             =   2760
  159.       Width           =   1815
  160.       Begin VB.HScrollBar hsbPick 
  161.          Height          =   255
  162.          LargeChange     =   10
  163.          Left            =   360
  164.          Max             =   100
  165.          TabIndex        =   15
  166.          Top             =   720
  167.          Width           =   1095
  168.       End
  169.       Begin VB.Label lblPick 
  170.          Alignment       =   2  'Center
  171.          BackColor       =   &H00FFFFFF&
  172.          BorderStyle     =   1  'Fixed Single
  173.          Caption         =   "0"
  174.          BeginProperty Font 
  175.             Name            =   "MS Sans Serif"
  176.             Size            =   12
  177.             Charset         =   0
  178.             Weight          =   400
  179.             Underline       =   0   'False
  180.             Italic          =   0   'False
  181.             Strikethrough   =   0   'False
  182.          EndProperty
  183.          Height          =   375
  184.          Left            =   360
  185.          TabIndex        =   14
  186.          Top             =   360
  187.          Width           =   1095
  188.       End
  189.    End
  190.    Begin VB.Frame fraStuff 
  191.       Caption         =   "Toys"
  192.       BeginProperty Font 
  193.          Name            =   "MS Sans Serif"
  194.          Size            =   9.75
  195.          Charset         =   0
  196.          Weight          =   700
  197.          Underline       =   0   'False
  198.          Italic          =   0   'False
  199.          Strikethrough   =   0   'False
  200.       EndProperty
  201.       Height          =   2535
  202.       Left            =   120
  203.       TabIndex        =   7
  204.       Top             =   120
  205.       Width           =   1335
  206.       Begin VB.CheckBox chkTop 
  207.          Caption         =   "Top"
  208.          BeginProperty Font 
  209.             Name            =   "MS Sans Serif"
  210.             Size            =   9.75
  211.             Charset         =   0
  212.             Weight          =   400
  213.             Underline       =   0   'False
  214.             Italic          =   0   'False
  215.             Strikethrough   =   0   'False
  216.          EndProperty
  217.          Height          =   375
  218.          Left            =   120
  219.          TabIndex        =   16
  220.          Top             =   1320
  221.          Width           =   1095
  222.       End
  223.       Begin VB.CheckBox chkTrike 
  224.          Caption         =   "Trike"
  225.          BeginProperty Font 
  226.             Name            =   "MS Sans Serif"
  227.             Size            =   9.75
  228.             Charset         =   0
  229.             Weight          =   400
  230.             Underline       =   0   'False
  231.             Italic          =   0   'False
  232.             Strikethrough   =   0   'False
  233.          EndProperty
  234.          Height          =   375
  235.          Left            =   120
  236.          TabIndex        =   12
  237.          Top             =   2040
  238.          Width           =   1095
  239.       End
  240.       Begin VB.CheckBox chkWagon 
  241.          Caption         =   "Wagon"
  242.          BeginProperty Font 
  243.             Name            =   "MS Sans Serif"
  244.             Size            =   9.75
  245.             Charset         =   0
  246.             Weight          =   400
  247.             Underline       =   0   'False
  248.             Italic          =   0   'False
  249.             Strikethrough   =   0   'False
  250.          EndProperty
  251.          Height          =   375
  252.          Left            =   120
  253.          TabIndex        =   11
  254.          Top             =   1680
  255.          Width           =   1095
  256.       End
  257.       Begin VB.CheckBox chkDoll 
  258.          Caption         =   "Doll"
  259.          BeginProperty Font 
  260.             Name            =   "MS Sans Serif"
  261.             Size            =   9.75
  262.             Charset         =   0
  263.             Weight          =   400
  264.             Underline       =   0   'False
  265.             Italic          =   0   'False
  266.             Strikethrough   =   0   'False
  267.          EndProperty
  268.          Height          =   375
  269.          Left            =   120
  270.          TabIndex        =   10
  271.          Top             =   960
  272.          Width           =   1095
  273.       End
  274.       Begin VB.CheckBox chkBear 
  275.          Caption         =   "Bear"
  276.          BeginProperty Font 
  277.             Name            =   "MS Sans Serif"
  278.             Size            =   9.75
  279.             Charset         =   0
  280.             Weight          =   400
  281.             Underline       =   0   'False
  282.             Italic          =   0   'False
  283.             Strikethrough   =   0   'False
  284.          EndProperty
  285.          Height          =   375
  286.          Left            =   120
  287.          TabIndex        =   9
  288.          Top             =   600
  289.          Width           =   1095
  290.       End
  291.       Begin VB.CheckBox chkBall 
  292.          Caption         =   "Ball"
  293.          BeginProperty Font 
  294.             Name            =   "MS Sans Serif"
  295.             Size            =   9.75
  296.             Charset         =   0
  297.             Weight          =   400
  298.             Underline       =   0   'False
  299.             Italic          =   0   'False
  300.             Strikethrough   =   0   'False
  301.          EndProperty
  302.          Height          =   375
  303.          Left            =   120
  304.          TabIndex        =   8
  305.          Top             =   240
  306.          Width           =   1095
  307.       End
  308.    End
  309.    Begin VB.TextBox txtBox 
  310.       BeginProperty Font 
  311.          Name            =   "MS Sans Serif"
  312.          Size            =   9.75
  313.          Charset         =   0
  314.          Weight          =   400
  315.          Underline       =   0   'False
  316.          Italic          =   0   'False
  317.          Strikethrough   =   0   'False
  318.       EndProperty
  319.       Height          =   1095
  320.       Left            =   120
  321.       MultiLine       =   -1  'True
  322.       ScrollBars      =   2  'Vertical
  323.       TabIndex        =   6
  324.       Top             =   3960
  325.       Width           =   2775
  326.    End
  327.    Begin VB.CommandButton cmdBeep 
  328.       Caption         =   "Beep!"
  329.       BeginProperty Font 
  330.          Name            =   "Arial"
  331.          Size            =   12
  332.          Charset         =   0
  333.          Weight          =   700
  334.          Underline       =   0   'False
  335.          Italic          =   0   'False
  336.          Strikethrough   =   0   'False
  337.       EndProperty
  338.       Height          =   495
  339.       Left            =   3480
  340.       TabIndex        =   5
  341.       Top             =   4080
  342.       Width           =   975
  343.    End
  344.    Begin VB.Image imgTrike 
  345.       Height          =   1095
  346.       Left            =   3720
  347.       Picture         =   "Sample.frx":0000
  348.       Stretch         =   -1  'True
  349.       Top             =   1560
  350.       Visible         =   0   'False
  351.       Width           =   975
  352.    End
  353.    Begin VB.Image imgTop 
  354.       Height          =   1095
  355.       Left            =   2640
  356.       Picture         =   "Sample.frx":5442
  357.       Stretch         =   -1  'True
  358.       Top             =   1560
  359.       Visible         =   0   'False
  360.       Width           =   975
  361.    End
  362.    Begin VB.Image imgBear 
  363.       Height          =   1095
  364.       Left            =   2640
  365.       Picture         =   "Sample.frx":6724
  366.       Stretch         =   -1  'True
  367.       Top             =   240
  368.       Visible         =   0   'False
  369.       Width           =   975
  370.    End
  371.    Begin VB.Image imgDoll 
  372.       Height          =   1095
  373.       Left            =   1560
  374.       Picture         =   "Sample.frx":73A6
  375.       Stretch         =   -1  'True
  376.       Top             =   1560
  377.       Visible         =   0   'False
  378.       Width           =   975
  379.    End
  380.    Begin VB.Image imgWagon 
  381.       Height          =   1095
  382.       Left            =   3720
  383.       Picture         =   "Sample.frx":8CC8
  384.       Stretch         =   -1  'True
  385.       Top             =   240
  386.       Visible         =   0   'False
  387.       Width           =   975
  388.    End
  389.    Begin VB.Image imgBall 
  390.       Height          =   1095
  391.       Left            =   1560
  392.       Picture         =   "Sample.frx":A1EA
  393.       Stretch         =   -1  'True
  394.       Top             =   240
  395.       Visible         =   0   'False
  396.       Width           =   975
  397.    End
  398. Attribute VB_Name = "frmSample"
  399. Attribute VB_GlobalNameSpace = False
  400. Attribute VB_Creatable = False
  401. Attribute VB_PredeclaredId = True
  402. Attribute VB_Exposed = False
  403. Option Explicit
  404. Dim BallY As Integer, BallDir As Integer
  405. Private Sub chkSkate_Click()
  406. End Sub
  407. Private Sub chkBall_Click()
  408. If chkBall.Value = vbChecked Then
  409.   imgBall.Visible = True
  410.   imgBall.Visible = False
  411. End If
  412. End Sub
  413. Private Sub chkBear_Click()
  414. If chkBear.Value = vbChecked Then
  415.   imgBear.Visible = True
  416.   imgBear.Visible = False
  417. End If
  418. End Sub
  419. Private Sub chkDoll_Click()
  420. If chkDoll.Value = vbChecked Then
  421.   imgDoll.Visible = True
  422.   imgDoll.Visible = False
  423. End If
  424. End Sub
  425. Private Sub chkTop_Click()
  426. If chkTop.Value = vbChecked Then
  427.   imgTop.Visible = True
  428.   imgTop.Visible = False
  429. End If
  430. End Sub
  431. Private Sub chkTrike_Click()
  432. If chkTrike.Value = vbChecked Then
  433.   imgTrike.Visible = True
  434.   imgTrike.Visible = False
  435. End If
  436. End Sub
  437. Private Sub chkWagon_Click()
  438. If chkWagon.Value = vbChecked Then
  439.   imgWagon.Visible = True
  440.   imgWagon.Visible = False
  441. End If
  442. End Sub
  443. Private Sub cmdBall_Click()
  444. If timBall.Enabled = True Then
  445.   timBall.Enabled = False
  446.   cmdBall.Caption = "Start"
  447.   timBall.Enabled = True
  448.   cmdBall.Caption = "Stop"
  449. End If
  450. End Sub
  451. Private Sub cmdBeep_Click()
  452. End Sub
  453. Private Sub Form_Load()
  454. optBlue.Value = True
  455. frmSample.BackColor = vbBlue
  456. BallY = picBall.ScaleHeight - shpBall.Height
  457. shpBall.Top = BallY
  458. BallDir = -1
  459. End Sub
  460. Private Sub hsbPick_Change()
  461. lblPick.Caption = Str(hsbPick.Value)
  462. End Sub
  463. Private Sub hsbPick_Scroll()
  464. lblPick.Caption = Str(hsbPick.Value)
  465. End Sub
  466. Private Sub optBlack_Click()
  467. frmSample.BackColor = vbBlack
  468. End Sub
  469. Private Sub optBlue_Click()
  470. frmSample.BackColor = vbBlue
  471. End Sub
  472. Private Sub optGreen_Click()
  473. frmSample.BackColor = vbGreen
  474. End Sub
  475. Private Sub optRed_Click()
  476. frmSample.BackColor = vbRed
  477. End Sub
  478. Private Sub timBall_Timer()
  479. BallY = BallY + BallDir * picBall.ScaleHeight / 50
  480. If BallY < 0 Then
  481.   Beep
  482.   BallY = 0
  483.   BallDir = 1
  484. ElseIf BallY > picBall.ScaleHeight - shpBall.Height Then
  485.   Beep
  486.   BallY = picBall.ScaleHeight - shpBall.Height
  487.   BallDir = -1
  488. End If
  489. shpBall.Top = BallY
  490. End Sub
  491.